(defun shell_by_name ()
  (interactive)
  (shell (message "sh-%s"
		  (read-from-minibuffer "enter buffer name :")))
  (setq mode-line-format (list "%b")))


(defun shell_clear ()
  (interactive)
  (let ((inhibit-read-only t))
    (erase-buffer)))




(evil-leader/set-key
  "shn" 'shell_by_name
  "shc" 'shell_clear)





(message "my_shell")
(provide 'my_shell)

